home *** CD-ROM | disk | FTP | other *** search
/ Hottest 6 / Hottest 6 (1996)(PDSoft)[!].iso / software / videoutils / a-g / ami2d / rexx / pstrain.rexx < prev    next >
OS/2 REXX Batch file  |  1978-11-24  |  723b  |  33 lines
  1. /* Ami2d init script for plane strain problems */
  2.  
  3. address ami2d
  4.  
  5. 'plane'
  6. 'problem(struct)'
  7. 'set plane strain'
  8.  
  9. 'set epsx=x1'
  10. 'set epsy=y2'
  11. 'set epsz=0.0'
  12. 'set gamxy=x2+y1'
  13. 'set gam12=(0.25*(epsx-epsy)^2+0.25*gamxy^2)^0.5'
  14. 'set eps1=0.5*(epsx+epsy)+gam12'
  15. 'set eps2=0.5*(epsx+epsy)-gam12'
  16. 'set eps3=0.0'
  17. 'set egsx=x1+(x1*x1+x2*x2)/2'
  18. 'set egsy=y2+(y1*y1+y2*y2)/2'
  19. 'set egsxy=(x2+y1+x1*y1+x2*y2)/2'
  20.  
  21. 'set sigx=c1*x1+c5*y2+c10*gamxy-f1'
  22. 'set sigy=c5*x1+c2*y2+c9*gamxy-f2'
  23. 'set sigz=c8*x1+c6*y2+c7*gamxy-f1'
  24. 'set tauxy=c10*x1+c9*y2+c4*gamxy'
  25. 'set tau12=(0.25*(sigx-sigy)^2+tauxy^2)^0.5'
  26. 'set sig1=0.5*(sigx+sigy)+tau12'
  27. 'set sig2=0.5*(sigx+sigy)-tau12'
  28. 'set sig3=sigz'
  29. 'set sigh=(sigx+sigy+sigz)/3'
  30. 'set sigd=sig1-sigh'
  31.  
  32. exit
  33.